home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / EXEPROC.PLP < prev    next >
Text File  |  1991-04-02  |  1KB  |  24 lines
  1. /* auto pilot program ｢NEM 2.04｣ 1991.4.01 By GOOSE(MAF00070) */
  2. /* %Exeproc  { */
  3. /*    広域変数PROCESSに格納されている処理選択結果に従って,各種処理を実行する｡
  4. **    広域変数は呼び出し元で宣言し,Selprocで処理内容を格納しておく必要がある｡
  5. **    var PROCESS[200]: 選択された処理番号を格納する｡
  6. **    処理ID,処理内容,処理関数の対応を以下に示す｡
  7. **        RML:メール受信:Rmail            RMS:会議室の未読のﾀﾞｳﾝ:Rmes
  8. **        RHP:HPの未読のﾀﾞｳﾝ:Rhp            SMLT:ﾃｷｽﾄﾌｧｲﾙをﾒｰﾙ発信:Smailt
  9. **        SMLB:ﾊﾞｲﾅﾘﾌｧｲﾙをﾒｰﾙ発信:Smailb    SMS:ﾃｷｽﾄﾌｧｲﾙを会議室に書き込む:Smes
  10. **        SMML:ﾒﾓからのﾒｰﾙ発信:Smmail        SMMS:ﾒﾓを会議室に書き込む:Smmes
  11. **        SHP:既存ﾌｧｲﾙをHPに書き込む:Shp    SMHP:ﾒﾓをHPに書き込む:Smhp
  12. **        CON:[終了後切断しないﾌﾗｸﾞ]をｾｯﾄするだけ */
  13.     %ONEPROC @head(PROCESS,{;});
  14.     case(DEBUG,{Yes},{display({ONEPROC:}|ONEPROC|{\n})});
  15.     case(ONEPROC={No},{Yes},{im({No})},
  16.         {No},{%PROCID @head(ONEPROC,{=});
  17.             case(PROCID,{RML},{Rmail},{RMS},{Rmes},{RHP},{Rhp},{SMLT},{Smailt},
  18.                 {SMLB},{Smailb},{SMS},{Smes},{SMML},{Smmail},{SMMS},{Smmes},
  19.                 {SHP},{Shp},{SMHP},{Smhp},{CON},{PLTEND:={No}});
  20.             PROCESS:=@body(PROCESS,ONEPROC|{;});
  21.             case(DEBUG,{Yes},{display({PROCESS:}|PROCESS|{\n})});
  22.             im({Yes})})
  23. /* }; */
  24.